home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Tele / C / CommsService 2.0.2.sit / commsService 2.0.2 Final / Service Definition Files / Hawaii University < prev    next >
Encoding:
Text File  |  1994-09-06  |  2.1 KB  |  52 lines  |  [TEXT/cSSv]
  1. #
  2. # commsService 2.0 Service Definition File.
  3. #
  4. Name=Hawaii University
  5. Description=Provides access to UHCARL Library System at the University of Hawaii, Manoa. Options include -
  6.       1. UH Manoa Library Catalog
  7.       2. UH Manoa Library Journal and Newspaper Titles
  8.       3. UH Manoa Library Books on Reserve in Sinclair Library
  9.       4. UH Manoa Library New Titles Lists
  10.       5. UH Manoa Library News, Hours, and Policies
  11.       6. UH System Library Catalogs
  12.       7. Hawaii Libraries, Databases and Indexes
  13.       8. Periodical Indexes (includes UnCover and ERIC)
  14.       9. Other Libraries and Databases (includes Govt Documents)
  15.  
  16. TimeOut=0
  17. BreakEnabled=No
  18. PagesToScroll=20
  19. TerminationString=Aloha!
  20. ConnectionTool=TGE TCP Tool
  21. ConnectionTokens=HostName STARMASTER.UHCC.HAWAII.EDU PortNumber 23 ConnectionType TELNET TelnetBinaryMode FALSE TerminalType vt100
  22. ConnectionMenu=No
  23. TerminalTool=VT102 Tool
  24. TerminalTokens=FontSize 9 Width 80 Cursor Underline Online True LocalEcho False AutoRepeat True RepeatControls False AutoWrap False NewLine False Scroll Jump ShowControls False SwapBackspaceDelete False TerminalMode ANSI/VT102 ShowStatusBar False ShowTabRuler False InverseVideo False InsertChar False OriginAtMargin False KeyClick False CursorKey ANSI Keypad Numeric AnswerBack "" KeyboardLocked False ActiveCharSet G0 NRCSet USASCII G0 USASCII G1 USASCII G2 USASCII G3 USASCII
  25. TerminalMenu=No
  26. ServiceScripts=on LoginToService
  27. Global ActiveService, FoundString
  28. if ExpectFromService(ActiveService, 20, true, true, "enter class") then
  29. if FoundString = 1 then
  30. get SendToService(ActiveService, "LIB" & return, "")
  31. repeat
  32. if ExpectFromService(ActiveService, 20, true, true, "Please identify your terminal", "Now, press return") then
  33. if FoundString = 1 then
  34. get SendToService(ActiveService, "5" & return, "")
  35. end if
  36. end if
  37. if FoundString = 2 then
  38. get SendToService(ActiveService, "5" & return, "")
  39. exit repeat
  40. end if
  41. end repeat
  42. if ExpectFromService(ActiveService, 20, true, true, "Press <RETURN> to start session") then
  43. if FoundString = 1 then
  44. if SendToService(ActiveService, return, "") then return true
  45. end if
  46. end if
  47. end if
  48. end if
  49. return false
  50. end LoginToService
  51.  
  52.